home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 359 / def / bufferio.def < prev    next >
Encoding:
Modula Definition  |  1989-01-09  |  1.8 KB  |  48 lines
  1. DEFINITION MODULE BufferIO;
  2. (*      File name: BufferIO.def                                 *)
  3. (*      Creation : June 24,1985                                 *)
  4. (*      Function : Provid buffer I/O to Text and Binary files   *)
  5. (*      By       : Morris                                       *)
  6. (*                                                              *)
  7. (*
  8. *    Copyright (c) 1985,1986,1987,1988,1989 by
  9. *    ana-systems, Foster City, California.
  10. *    All Rights Reserved.
  11. *
  12. *    This software is furnished under a license and may be used and copied
  13. *    only  in accordance with  the  terms  of  such  license and  with the
  14. *    inclusion of the above copyright notice.  This software or  any other
  15. *    copies thereof may not be provided or otherwise made available to any
  16. *    other  person.   No title to and ownership of the  software is  herby
  17. *    transferred.
  18. *
  19. *    The information in this software is  subject to change without notice
  20. *    and  should  not be construed as a commitment by ana-systems.   No
  21. *    warranty is implied or expressed.
  22. *
  23. *  SCCID  = "1.1    1/26/86"; 
  24. *)
  25. (*      History of modifcation                                  *)
  26. (*      Date            Who             Why                     *)
  27. (*                                                              *)
  28.  
  29. FROM Files IMPORT File;
  30. FROM SYSTEM IMPORT ADDRESS;
  31. EXPORT QUALIFIED SetBuff,FlushBuffer,BufferRead,
  32.                  UnDoBuffer,BufferWrite;
  33.  
  34.  
  35.  
  36. PROCEDURE SetBuff(file:File;NewSize:CARDINAL;Buffer:ADDRESS);
  37.  
  38. PROCEDURE FlushBuffer(file: File);
  39.  
  40. PROCEDURE UnDoBuffer(file : File;  n: CARDINAL):CHAR;
  41.  
  42. PROCEDURE BufferRead(file : File; buffer : ADDRESS ;n:CARDINAL ;
  43.                          VAR m : CARDINAL);
  44.  
  45. PROCEDURE BufferWrite(file : File; buffer : ADDRESS ;n:CARDINAL );
  46.  
  47. END BufferIO.
  48.